home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Unix / go4gw1.1 / g2snmp < prev    next >
Encoding:
Text File  |  1993-04-30  |  15.8 KB  |  558 lines
  1. #!/usr/local/bin/perl
  2. ###################################################
  3. #
  4. # Standard RCS Header information (see co(1))
  5. #
  6. # lindner
  7. #
  8. # 1993/04/30 16:30:42
  9. #
  10. # 1.1.1.1
  11. #
  12. # 
  13. #
  14. # /home/mudhoney/GopherSrc/CVS/go4gw/g2snmp,v
  15. #
  16. # Exp
  17. #
  18. # g2snmp,v
  19. # Revision 1.1.1.1  1993/04/30  16:30:42  lindner
  20. # initial cvsing of go4gw
  21. #
  22. # Revision 1.1  1992/10/08  21:48:02  schemers
  23. # Initial revision
  24. #
  25. #--------------------------------------------------
  26. # Copyright (c) 1992 Board of Trustees
  27. #            Leland Stanford Jr. University
  28. ###################################################
  29. # /*
  30. #  * Redistribution and use in source and binary forms are permitted
  31. #  * provided that the above copyright notice and this paragraph are
  32. #  * duplicated in all such forms and that any documentation,
  33. #  * advertising materials, and other materials related to such
  34. #  * distribution and use acknowledge that the software was developed
  35. #  * by Stanford University.  The name of the University may not be used 
  36. #  * to endorse or promote products derived from this software without 
  37. #  * specific prior written permission.
  38. #  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  39. #  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  40. #  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  41. #  */
  42. # 
  43. #----------------------------------------------------------------------
  44. # variables you should change:
  45.  
  46. $snmp_table = "/usr/local/bin/snmp-table";
  47.  
  48. #----------------------------------------------------------------------
  49.  
  50.  
  51. sub snmp_main {
  52.  local($_) = @_;
  53.  
  54.  if (/^$/) {
  55.     &Greply("7SNMP Agent\t$Ggw menu\t$Ghost\t$Gport");
  56.     &Greply(".");
  57.     exit(0);
  58.  }
  59.  
  60. if (/^menu\s+(.*)/i)         {  &do_menu($1);  } 
  61. elsif (/^at\s+(.*)/i)        {  &dump_at($1); }
  62. elsif (/^system\s+(.*)/i)    {  &dump_system($1); }
  63. elsif (/^interface\s+(.*)/i) {  &dump_interface($1); }
  64. elsif (/^ip\s+(.*)/i) {  &dump_ip($1); }
  65. elsif (/^icmp\s+(.*)/i) {  &dump_icmp($1); }
  66. elsif (/^tcp\s+(.*)/i) {  &dump_tcp($1); }
  67. elsif (/^udp\s+(.*)/i) {  &dump_udp($1); }
  68. else {
  69.   &Gabort("Unknown command!");
  70.   exit;
  71. }
  72.  
  73. }
  74.  
  75. sub do_menu {
  76.     local($agent)=@_;
  77.     &Greply("0Address Translation Group\t$Ggw at $agent\t$Ghost\t$Gport");
  78.     &Greply("0Interface Group\t$Ggw interface $agent\t$Ghost\t$Gport");
  79.     &Greply("0ICMP Group\t$Ggw icmp $agent\t$Ghost\t$Gport");
  80.     &Greply("0IP Group\t$Ggw ip $agent\t$Ghost\t$Gport");
  81.     &Greply("0System Group\t$Ggw system $agent\t$Ghost\t$Gport");
  82.     &Greply("0TCP Group\t$Ggw tcp $agent\t$Ghost\t$Gport");
  83.     &Greply("0UDP Group\t$Ggw udp $agent\t$Ghost\t$Gport");
  84.     &Greply(".");
  85.     exit(0);
  86. }
  87.  
  88.  
  89. chop($date=`date`);
  90.  
  91. %ifType2a = (
  92.         1, 'other',
  93.         2, 'regular1822',
  94.     3, 'hdh1822',
  95.     4, 'ddn-x25',
  96.     5, 'rfc877-x25',
  97.     6, 'ethernet-csmacd',
  98.     7, 'iso88023-csmacd',
  99.     8, 'iso88024-tokenBus',
  100.     9, 'iso88025-tokenRing',
  101.     10,' iso88026-man',
  102.     11,' starLan',
  103.     12,' proteon-10Mbit',
  104.     13,' proteon-80Mbit',
  105.     14,' hyperchannel',
  106.     15,' fddi',
  107.     16,' lapb',
  108.     17,' sdlc',
  109.     18,' ds1',
  110.     19,' e1',
  111.     20,' basicISDN',
  112.     21,' primaryISDN',
  113.     22,' propPointToPointSerial',
  114.     23,' ppp',
  115.     24,'softwareLoopback',
  116.     25,' eon,',
  117.     26,' ethernet-3Mbit',
  118.     27,' nsip',
  119.     28,' slip',
  120.     29,' ultra',
  121.     30,' ds3',
  122.     31,' sip',
  123.     32,' frame-relay'
  124. );
  125.  
  126. %ifAdminStatus2a = (1,'up',2,'down',3,'testing');
  127. %ifOperStatus2a = %ifAdminStatus2a ;
  128.  
  129. %ifRouteType2a=(1,'other',2,'invalid',3,'direct',4,'remote');
  130.  
  131. %ipNetToMediaType2a=(1,'other',2,'invalid',3,'dynamic',4,'static');
  132.  
  133. %tcpConnState2a=(1,'closed',2,'listen',3,'synSent',4,'synReceived',
  134.           5,'established',6,'finWait1',7,'finWait2',8,'closeWait',
  135.           9,'lastAck',10,'closing',11,'timeWait');
  136.  
  137. %ipForwarding2a=(1,'gateway',2,'host');
  138.  
  139. %tcpRtoAlgorithm2a = (1,'other',2,'constant',3,'rsre',4,'vanj');
  140.  
  141. sub sysServices2a {
  142.   local($x) = @_;
  143.   local($result);
  144.  
  145.   $result .= "physical, " if ($x & 1);
  146.   $result .= "data-link, " if ($x & 2);
  147.   $result .= "internet, " if ($x & 4);   
  148.   $result .= "end-to-end, " if ($x & 8); 
  149.   $result .= "application, " if ($x & 64);
  150.  
  151.   $result =~ s/, $//;
  152.   return $result;
  153. }
  154.  
  155. sub timeTicks2a {
  156.   local($ticks)= @_;
  157.   local($d,$h,$m,$s,$result);
  158.   
  159.   $ticks /= 100;
  160.  
  161.   $d = int($ticks / (60 * 60 * 24));
  162.   $ticks %= (60*60*24);
  163.  
  164.   $h = int($ticks / (60 * 60));
  165.   $ticks %= (60*60);
  166.  
  167.   $m = int($ticks/60);
  168.   $s = $ticks % 60;
  169.  
  170.   $result = sprintf("%d:%02d:%02d",$h,$m,$s);
  171.   if ($d==1) {
  172.         $result = sprintf("%d day ",$d) . $result;
  173.   } elsif ($d>1) {
  174.         $result = sprintf("%d days ",$d) . $result;
  175.   }
  176.   return $result;
  177.  
  178. }
  179.  
  180. sub hexString2a {
  181.    local($string) = @_;
  182.    local($result,$n);
  183.      
  184.    foreach (split(/:/,$string)) {
  185.        $n = oct("0x$_");
  186.        last if !$n;
  187.        $result .= sprintf("%c",$n);
  188.    }
  189.    $result;
  190. }
  191.  
  192. sub dump_system {
  193.  
  194.   local($host) = @_;
  195.   local(*int);
  196.  
  197.   &get_table($host,"system",*int);
  198.  
  199.     print "\n";
  200.     print "Host: $host\nDate: $date\n";
  201.     print "\n";
  202.     print " "*30,"System Table\n";
  203.     print "System Description\n  ", $int{"sysDescr[0]"},"\n\n";
  204.     print "UpTime       ", &timeTicks2a($int{"sysUpTime[0]"}),"\n";
  205.     print "ObjectID     ", $int{"sysObjectID[0]"},"\n";
  206.     $sysName =  $int{"sysName[0]"};
  207.     $sysContact = $int{"sysContact[0]"};
  208.     $sysLocation = $int{"sysLocation[0]"};
  209.     $sysServices = $int{"sysServices[0]"};
  210.     if ($sysName || $sysContact || $sysLocation || $sysServices) {
  211.     print "Name         $sysName\n";
  212.     print "Contact      $sysContact\n";
  213.     print "Location     $sysLocation\n";
  214.     print "Services     ",&sysServices2a($sysServices),"\n";
  215.     }
  216.     print "\n";
  217. }
  218.  
  219. sub dump_interface {
  220.   local($host) = @_;
  221.   local(*int);
  222.  
  223.   &get_table($host,"interfaces",*int);
  224.  
  225.   $number = $int{"ifNumber[0]"};
  226.     print "\n";
  227.     print "Host: $host\nDate: $date\n";
  228.     print "\n";
  229.     print " "*30,"Interface Table\n";
  230.     print "\n";
  231.  
  232.     print "Number of interfaces = $number\n";
  233.  
  234.   for ($i=1; $i <= $number; $i++) {
  235.     print "\n";
  236.    print "-"*40,"Interface $i\n";
  237.     $ifIndex = $int{"ifIndex[$i]"};
  238.     $ifDescr = &hexString2a($int{"ifDescr[$i]"});
  239.     $ifType  = $ifType2a{$int{"ifType[$i]"}};
  240.     $ifMtu   = $int{"ifMtu[$i]"};
  241.     $ifSpeed = $int{"ifSpeed[$i]"};
  242.     $ifPhysAddress = $int{"ifPhysAddress[$i]"};
  243.     $ifAdminStatus = $ifAdminStatus2a{$int{"ifAdminStatus[$i]"}};
  244.     $ifOperStatus  = $ifOperStatus2a{$int{"ifOperStatus[$i]"}};
  245.     $ifLastChange  = &timeTicks2a($int{"ifLastChange[$i]"});
  246.     $ifInOctets = $int{"ifInOctets[$i]"}+0;
  247.     $ifInUcastPkts = $int{"ifInUcastPkts[$i]"}+0;
  248.     $ifInNUcastPkts = $int{"ifInNUcastPkts[$i]"}+0;
  249.     $ifInDiscards =  $int{"ifInDiscards[$i]"}+0;
  250.     $ifInErrors = $int{"ifInErrors[$i]"}+0;
  251.     $ifInUnknownProtos = $int{"ifInUnknownProtos[$i]"}+0;
  252.     $ifOutOctets = $int{"ifOutOctets[$i]"}+0;
  253.     $ifOutUcastPkts = $int{"ifOutUcastPkts[$i]"}+0;
  254.     $ifOutNUcastPkts =$int{"ifOutNUcastPkts[$i]"}+0;
  255.     $ifOutDiscards = $int{"ifOutDiscards[$i]"}+0;
  256.     $ifOutErrors = $int{"ifOutErrors[$i]"}+0;
  257.     $ifOutQlen =  $int{"ifOutQlen[$i]"}+0;
  258. print "\n";
  259. if ($ifDescr) {  
  260. printf("Description     %s (%d)\n",$ifDescr,$ifIndex); 
  261. }
  262. else          {  
  263. printf("Description     (%d)\n",$ifIndex); 
  264. }
  265. printf("Address         $ifPhysAddress\n");
  266. printf("Type            %s\n",$ifType);
  267. printf("Mtu             %s\n",$ifMtu);
  268. printf("Speed           %s (%s)\n",$ifSpeed,int($ifSpeed/1000000)." MBS");
  269. printf("Status          %s",$ifOperStatus);
  270. if ($ifAdminStatus ne $ifOperStatus) { 
  271.       printf("(desired state: $ifAdminStatus)"); 
  272.  
  273. }
  274. if ($int{"ifLastChange[$i]"}) { print "(last config change: $ifLastChange)";}
  275. printf("\n");
  276. printf("Unknwn Proto    %s\n",$ifInUnknownProtos);
  277. printf("Output Q len    %s\n",$ifOutQlen);
  278.  
  279.  
  280. printf("Input\n");
  281. printf("  Octects       %d\n",$ifInOctects);
  282. printf("  unicast       %d\n",$ifInUcastPkts);
  283. printf("  broad/multi   %d\n",$ifInNUcastPkts);
  284. printf("  discards      %d\n",$ifInDiscards);
  285. printf("  errors        %d\n",$ifInErrors);
  286. printf("Output\n");
  287. printf("  Octects       %d\n",$ifOutOctets);
  288. printf("  unicast       %d\n",$ifOutUcastPkts);
  289. printf("  broad/multi   %d\n",$ifOutNUcastPkts);
  290. printf("  discards      %d\n",$ifOutDiscards);
  291. printf("  errors        %d\n",$ifOutErrors);
  292.  
  293.  
  294.   }
  295. }
  296.  
  297. sub dump_at {
  298.  
  299.   local($host) = @_;
  300.   local(*at);
  301.  
  302.   &get_table($host,"at",*at);
  303.  
  304.     print "\n";
  305.     print "Host: $host\nDate: $date\n";
  306.     print "\n";
  307.     print "       Address Translation Group\n";
  308.     print "\n";
  309.  
  310.     printf("%8s %17s       %s\n","Interface","Physical Addr","IP Addr");
  311.  
  312.   foreach (keys %at) {
  313.  
  314.       if (/^atIfIndex\[([^]]*)/) {
  315.          $_ = $index = $1;
  316.          ($if,$ip) = /(\d+)\.\d+\.(.*)/;
  317.          printf("   %2d       %s    %s\n",$if,$at{"atPhysAddress[$index]"},$ip);
  318.       }
  319.   }
  320.     print "\n";
  321. }
  322.  
  323.  
  324. sub dump_ip {
  325.  
  326.   local($host) = @_;
  327.   local(*ip);
  328.  
  329.   &get_table($host,"ip",*ip);
  330.  
  331.     print "\n";
  332.     print "Host: $host\nDate: $date\n";
  333.     print "\n";
  334.     print " "*10,"IP Group\n";
  335.  
  336.   print "\n";
  337.   print "Forwarding          ",$ipForwarding2a{$ip{"ipForwarding[0]"}},"\n";
  338.   print "Default TTL         ",$ip{"ipDefaultTTL[0]"}+0,"\n";
  339.   print "Input\n";
  340.   print "  Datagrams         ",$ip{"ipInReceives[0]"}+0,"\n";
  341.   print "  Hardware Err      ",$ip{"ipInHdrErrors[0]"}+0,"\n";
  342.   print "  Address Err       ",$ip{"ipInAddrErrors[0]"}+0,"\n";
  343.   print "  Unknown Proto     ",$ip{"ipInUnknownProtos[0]"}+0,"\n";
  344.   print "  Discards          ",$ip{"ipInDiscards[0]"}+0,"\n";
  345.   print "  Delivers          ",$ip{"ipInDelivers[0]"}+0,"\n";
  346.   print "Output\n";
  347.   print "  Datagrams         ",$ip{"ipOutReceives[0]"}+0,"\n";
  348.   print "  Discards          ",$ip{"ipOutDiscards[0]"}+0,"\n";
  349.   print "  No Routes         ",$ip{"ipOutNoRoutes[0]"}+0,"\n";
  350.   print "Reassembly\n";
  351.   print "  Timeout           ",$ip{"ipReasmTimeout[0]"}+0,"\n";
  352.   print "  Requests          ",$ip{"ipReasmReqds[0]"}+0,"\n";
  353.   print "  OK                ",$ip{"ipReasmOKs[0]"}+0,"\n";
  354.   print "  Fail              ",$ip{"ipReasmFails[0]"}+0,"\n";
  355.   print "Frags\n";
  356.   print "  OK                ",$ip{"ipFragOKs[0]"}+0,"\n";
  357.   print "  Fail              ",$ip{"ipFragFails[0]"}+0,"\n";
  358.   print "  Created           ",$ip{"ipFragCreates[0]"}+0,"\n";
  359.   print "Forwarded Datagrams ",$ip{"ipForwDatagrams[0]"}+0,"\n";
  360.  
  361.   $done=0;
  362.   foreach (keys %ip) {
  363.  
  364.       if (/^ipAdEntAddr\[([^]]*)/) {
  365.     if (!$done) {
  366.     print "\n";
  367.          print " "*20,"IP Interface Address Table\n";
  368.          printf("%s  %-15s %-15s %-15s  %s\n",
  369.          "Interface","IP address","Net Mask","Broadcast","Reasm Max (mib II)");
  370.          $done=1;
  371.     }
  372.          $_ = $1;
  373.          printf("  %2d       %-15s %-15s %-15s  %s\n",
  374.         $ip{"ipAdEntIfIndex[$_]"},
  375.                 $_,
  376.         $ip{"ipAdEntNetMask[$_]"},
  377.         $ip{"ipAdEntBcastAddr[$_]"},
  378.         $ip{"ipAdEntReasmMaxSize[$_]"});
  379.       }
  380.   }
  381.  
  382.   $done=0;
  383.   foreach (keys %ip) {
  384.  
  385.       if (/^ipRouteDest\[([^]]*)/) {
  386.     if (!$done) {
  387.     print "\n";
  388.          print " "*25,"Routing Table\n";
  389.  
  390.          printf("%-15s %7s  %-15s %-7s  %s\n","Destination","Interface","Next Hop","Type","Mask (mib II)");
  391.          $done=1;
  392.     }
  393.          $_ = $1;
  394.          printf("%-15s    %2d      %-15s %-7s  %s\n",
  395.                 $_,
  396.         $ip{"ipRouteIfIndex[$_]"},
  397.         $ip{"ipRouteNextHop[$_]"},
  398.         $ifRouteType2a{$ip{"ipRouteType[$_]"}},
  399.         $ip{"ipRouteMask[$_]"});
  400.       }
  401.   }
  402.  
  403. $done=0;
  404.   foreach (keys %ip) {
  405.       if (/^ipNetToMediaIfIndex\[([^]]*)/) {
  406. if (!$done) {
  407.          print "\n";
  408.          print " "*15,"Net to Media Table (ARP cache)\n";
  409.          printf(" %s   %-17s    %-15s  %s\n",
  410.            "Interface","Physical Address","IP Address","Type");
  411.    $done=1;
  412. }
  413.          $index = $_ = $1;
  414.          ($if,$ip) = /(\d+)\.(.*)/;
  415.          printf("   %2d        %-17s    %-15s  %s\n",
  416.                 $if,
  417.         $ip{"ipNetToMediaPhysAddress[$index]"},
  418.                 $ip,
  419.         $ipNetToMediaType2a{$ip{"ipNetToMediaType[$index]"}});
  420.       }
  421.   }
  422.     print "\n";
  423.  
  424. }
  425.  
  426.  
  427. sub dump_tcp {
  428.  
  429.   local($host) = @_;
  430.   local(*tcp);
  431.  
  432.   &get_table($host,"tcp",*tcp);
  433.  
  434.     print "\n";
  435.     print "Host: $host\nDate: $date\n";
  436.     print "\n";
  437.     print "       TCP Group\n";
  438.     print "\n";
  439. print "Retrans Algorithm    ",$tcpRtoAlgorithm2a{$tcp{"tcpRtoAlgorithm[0]"}},"\n";
  440. print "Retrans Min Timeout  ",$tcp{"tcpRtoMin[0]"},"\n";
  441. print "Retrans Max Timeout  ",$tcp{"tcpRtoMax[0]"},"\n";
  442. print "Max Connections      ",$tcp{"tcpMaxConn[0]"},"\n";
  443. print "Active Opens         ",$tcp{"tcpActiveOpens[0]"},"\n";
  444. print "Passive Opens        ",$tcp{"tcpPassiveOpens[0]"},"\n";
  445. print "Attempt Fails        ",$tcp{"tcpAttemptFails[0]"},"\n";
  446. print "Connection Resets    ",$tcp{"tcpEstabResets[0]"},"\n";
  447. print "Current Connections  ",$tcp{"tcpCurrEstab[0]"},"\n";
  448. print "Input Segments       ",$tcp{"tcpInSegs[0]"},"\n";
  449. print "Output Segments      ",$tcp{"tcpOutSegs[0]"},"\n";
  450. print "Retrans Segments     ",$tcp{"tcpRetransSegs[0]"},"\n";
  451. print "Input Errors         ",$tcp{"tcpInErrs[0]"},"\n";
  452. print "Output Resets        ",$tcp{"tcpOutRsts[0]"},"\n";
  453.  
  454.     print "\n";
  455. print " "*20,"TCP Connection Table\n";
  456. print " "*10,"Local "," "*20,"Remote\n";
  457.          printf("%-15s %5s      %-15s %5s    %s\n",
  458.                "Address","Port","Address","Port","State");
  459.   foreach (keys %tcp) {
  460.  
  461.       if (/^tcpConnState\[([^]]*)/) {
  462.          $_ = $index = $1;
  463.          ($lip,$lp,$rip,$rp) = 
  464.               /(\d+\.\d+\.\d+\.\d+)\.(\d+)\.(\d+\.\d+\.\d+\.\d+)\.(\d+)/;
  465.               $tcpConnState = $tcpConnState2a{$tcp{"tcpConnState[$index]"}};
  466.          printf("%-15s %5d      %-15s %5d    %s\n",
  467.                     $lip,$lp,$rip,$p,$tcpConnState);
  468.       }
  469.   }
  470.     print "\n";
  471. }
  472.  
  473.  
  474. sub dump_udp {
  475.  
  476.   local($host) = @_;
  477.   local(*udp);
  478.  
  479.   &get_table($host,"udp",*udp);
  480.  
  481.     print "\n";
  482.     print "Host: $host\nDate: $date\n";
  483.     print "\n";
  484.     print "       UDP Group\n";
  485.     print "\n";
  486.  
  487.     print "Input Datagrams   ", $udp{"udpInDatagrams[0]"}+0,"\n";
  488.     print "Input Errors      ", $udp{"udpInErrors[0]"}+0,"\n";
  489.     print "Unknown Dest Port ", $udp{"udpNoPorts[0]"}+0,"\n";
  490.     print "Output Datagrams  ", $udp{"udpOutDatagrams[0]"}+0,"\n";
  491.  
  492.   foreach (keys %udp) {
  493.  
  494.       if (/^udpLocalPort\[([^]]*)/) {
  495. if (!$done) {
  496.     print "\n";
  497. print " "*10,"UDP Table\n";
  498.          printf("%-15s %5s\n","Local Address","Local Port");
  499.  $done=1;
  500. }
  501.          $_ = $index = $1;
  502.          ($lip,$lp) =/(\d+\.\d+\.\d+\.\d+)\.(\d+)/;
  503.          printf("%-15s    %5d\n",$lip,$lp);
  504.       }
  505.   }
  506.     print "\n";
  507. }
  508.  
  509.  
  510.  
  511. sub dump_icmp {
  512.  
  513.   local($host) = @_;
  514.   local(*icmp);
  515.  
  516.   &get_table($host,"icmp",*icmp);
  517.  
  518.     print "\n";
  519.     print "Host: $host\nDate: $date\n";
  520.     print "\n";
  521.     print " "*30,"ICMP Group\n";
  522.  
  523.     print "\n";
  524.     printf("                           Input         Output\n");
  525.     printf(" Messages           %12d   %12d\n", $icmp{"icmpInMsgs[0]"}, $icmp{"icmpOutMsgs[0]"});
  526.     printf(" Errors             %12d   %12d\n", $icmp{"icmpInErrors[0]"}, $icmp{"icmpOutErrors[0]"});
  527.     printf(" Dest unreach       %12d   %12d\n", $icmp{"icmpInDestUnreachs[0]"}, $icmp{"icmpOutDestUnreachs[0]"});
  528.     printf(" Time exceeds       %12d   %12d\n", $icmp{"icmpInTimeExcds[0]"}, $icmp{"icmpInTOuteExcds[0]"});
  529.     printf(" Parm problems      %12d   %12d\n", $icmp{"icmpInParmProbs[0]"}, $icmp{"icmpOutParmProbs[0]"});
  530.     printf(" Source Quenchs     %12d   %12d\n", $icmp{"icmpInSrcQuenchs[0]"}, $icmp{"icmpOutSrcQuenchs[0]"});
  531.     printf(" Redirects          %12d   %12d\n", $icmp{"icmpInRedirects[0]"}, $icmp{"icmpInRedOutects[0]"});
  532.     printf(" Echos              %12d   %12d\n", $icmp{"icmpInEchos[0]"}, $icmp{"icmpOutEchos[0]"});
  533.     printf(" Echo reps          %12d   %12d\n", $icmp{"icmpInEchoReps[0]"}, $icmp{"icmpOutEchoReps[0]"});
  534.     printf(" Timestamps         %12d   %12d\n", $icmp{"icmpInTimestamps[0]"}, $icmp{"icmpInTOutestamps[0]"});
  535.     printf(" Timestamp reps     %12d   %12d\n", $icmp{"icmpInTimestampReps[0]"}, $icmp{"icmpInTOutestampReps[0]"});
  536.     printf(" Address masks      %12d   %12d\n", $icmp{"icmpInAddrMasks[0]"}, $icmp{"icmpOutAddrMasks[0]"});
  537.     printf(" Address mask reps  %12d   %12d\n", $icmp{"icmpInAddrMaskReps[0]"}, $icmp{"icmpOutAddrMaskReps[0]"});
  538.  
  539.  
  540.  
  541.     print "\n";
  542. }
  543.  
  544.  
  545. sub get_table { 
  546.     local($host,$t,*table) = @_;
  547.  
  548.  open(SNMP,"echo '$t\[]' | $snmp_table $host|");
  549.  while(<SNMP>) {
  550.     chop;
  551.     /^(.*)=(.*)$/;
  552.     $table{$1} = $2;
  553.  }
  554. }
  555.  
  556.  
  557. 1;
  558.